myvar_0 = GetPrimitiveParameter(0)
GetTemp(0)
myvar_1 = CreateObjectGUID()
myvar_2 = GlobalObjManager["getPersonIds"](GlobalObjManager, GlobalObjManager["kSpeciesFlag_Human"])
{R3},{R4},myvar_5,myvar_6 = ipairs(myvar_2)
for myvar_5, myvar_6 in ipairs(myvar_2) do 
	if (GlobalObjManager["verifyObjectId"](GlobalObjManager, myvar_6) ~= 0) then 


	myvar_7 = GetPersonData(myvar_6, PersonData["neighbor id"])
		if (GlobalObjManager["verifyNeighborId"](GlobalObjManager, myvar_7) ~= 0) then 


		myvar_8 = Inventory["new"](Inventory["kTypeNeighbor"], myvar_7)
		myvar_9 = myvar_8["findToken"](myvar_8, myvar_1)
			if (myvar_9 ~= nil) then
			myvar_10 = myvar_9["countProperties"](myvar_9)
				if (myvar_0 <= myvar_10) then
				
myvar_10 = myvar_9["getProperty"]
				myvar_10 = myvar_10(myvar_9, myvar_0)
					if (myvar_10 <= 0) then
					myvar_9["setFlag"](myvar_9, InventoryToken["kFlagMarkedForDeletion"])
					myvar_8["removeTokensMarkedForDeletion"](myvar_8)
				else
					myvar_10 = myvar_10 - 1
					myvar_9["setProperty"](myvar_9, myvar_0, myvar_10)
				else
					
myvar_10 = myvar_9["setFlag"]
					myvar_10(myvar_9, InventoryToken["kFlagMarkedForDeletion"])
					
myvar_10 = myvar_8["removeTokensMarkedForDeletion"]
					myvar_10(myvar_8)
				end
			end
		end
	end
end
end
local myvar_4 = True
SetScriptReturnValue(myvar_4)
